home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / W4arexx.ibrx < prev    next >
Encoding:
Text File  |  1998-09-10  |  953 b   |  35 lines
  1. /* $VER: W4arexx.ibrx  1.0
  2. *Made by Andres Pääbo (c)1998 : paabo@bancom.net
  3. *
  4. */
  5. OPTIONS RESULTS
  6.  
  7. screen=getclip('screen')
  8.  
  9. ADDRESS COMMAND 'REQUESTFILE > RAM:W4/resultstring   TITLE "Select AREXX SCRIPT"  "WWWworkbench/arexx/" PUBSCREEN "'screen'"'
  10. if rc=5 then EXIT
  11. call open('resultstring','Ram:W4/resultstring',R)
  12. resultstring=readln('resultstring')
  13. resultstring=TRANSLATE(resultstring, ' ','"')
  14. resultstring=STRIP(resultstring)
  15. close('resultstring')
  16.  
  17. ADDRESS COMMAND 'C:REQUESTCHOICE >RAM:W4/resultstring 
  18. "WHICH IMAGE?" "Click image to be passed to the Arexx script? " "DONE|CANCEL" PUBSCREEN "'screen'"'
  19. call open('resultstring','Ram:W4/resultstring',R)
  20. response=readln('resultstring')
  21. close('resultstring')
  22. if response=0 then EXIT
  23.  
  24.  
  25. ADDRESS 'IBROWSE'
  26. 'QUERY URL'
  27. url = result
  28. filename = SUBSTR(url,18) 
  29. call setclip('filename',filename)
  30. /**filename value will be picked up by other program*/
  31.  
  32. ADDRESS COMMAND  'Sys:RexxC/RX  'resultstring
  33.  
  34. EXIT
  35.